home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / APro_GadTools.lha / GadTools / Beispiele / Lores / Beispiel4_CycleButtons.ASC < prev    next >
Text File  |  1995-10-09  |  2KB  |  61 lines
  1. ' ****************************************   
  2. ' * Beispiel-Listing Nr.4 (CycleButtons) *   
  3. ' * ------------------------------------ *   
  4. ' * evtl. muss noch der pfad in der      *   
  5. ' * letzten zeile geändert werden,       *   
  6. ' * damit das programm die GadTools      *   
  7. ' * finden und beiladen kann.            *   
  8. ' ****************************************   
  9. '
  10. '
  11. ' ************************************** 
  12. '      Eine Arbeitsmaske erstellen.  
  13. ' ************************************** 
  14. '
  15. '
  16. _SCREEN_OPEN[0,0]
  17. _MAKE_MASK[30,30,286,220,2,1,0]
  18. '
  19. '
  20. ' ************************************** 
  21. '       Und nun den Text aufbauen. 
  22. ' ************************************** 
  23. '
  24. '
  25. Ink 2,0
  26. Text 38,60,"Dies ist Beispiel-Listing Nr.4"
  27. Text 38,68,"------------------------------"
  28. Text 38,80,"    Eine Demonstration für"
  29. Text 38,90,"        CycleButtons!"
  30. Text 38,110,"Zum beenden auf EXIT klicken!!"
  31. Text 117,135,"CycleButton"
  32. '
  33. '
  34. ' ************************************** 
  35. '   Ein CycleButton & ein PushButton.    
  36. ' ************************************** 
  37. '
  38. '
  39. _CYCLEBUTTON[1,133,145,2,1,0,2,"EINS|ZWEI|DREI|VIER|FÜNF"]
  40. _PUSHBUTTON[1,135,190,2,1,0,2," EXIT "]
  41. '
  42. '
  43. ' ************************************** 
  44. '    Warten bis Push-Button geklickt.
  45. ' ************************************** 
  46. '
  47. '
  48. Repeat 
  49. _CYCLEBUTTON_HIT
  50. _PUSHBUTTON_HIT
  51. Until Param=1
  52. Direct 
  53. '
  54. '
  55. ' ************************************** 
  56. '     Das GadTools.Include beiladen. 
  57. ' ************************************** 
  58. '
  59. '
  60. Include "df0:GadTools.Inc"
  61.